home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / Feelin021015 / Examples / Brushes.e < prev    next >
Encoding:
Text File  |  2002-10-28  |  1.2 KB  |  44 lines
  1. OPT PREPROCESS
  2.  
  3. MODULE 'feelin','libraries/feelin'
  4.  
  5. #define Image(x,i) ImageObject, FA_InputMode,i, FA_FixedHeight,TRUE, FA_FixedWidth,TRUE, FA_Image,x, FA_Back,FI_None, End
  6.  
  7. PROC main()
  8.    DEF c,w
  9.  
  10.    IF feelinbase := OpenLibrary('feelin.library',FV_VERSION)
  11.       c := ClientObject,
  12.          Child, w := WindowObject, FA_Window_Title, 'Feelin : Brushes',
  13.             Child, HGroup, NoFrame,
  14.                Child, Image('3:ArrowUp.fb0',      FV_InputMode_Toggle),
  15.                Child, Image('3:ArrowUpG.fb0',     FV_InputMode_Release),
  16.                Child, Image('3:CheckMark.fb0',    FV_InputMode_Toggle),
  17.                Child, ImageObject, FA_InputMode,FV_InputMode_Toggle, FA_Fixed,TRUE,
  18.                 FA_SchemeSpec,{schemespec} ,FA_Image,'3:CheckMark.fb0', End,
  19.                Child, Image('3:Be/CheckMark.fb0', FV_InputMode_Toggle),
  20.                Child, Image('3:Be/ArrowDown.fb0', FV_InputMode_Release),
  21.             End,
  22.          End,
  23.       End
  24.  
  25.       IF c
  26.          F_DoA(w,FM_Notify,[FA_Window_CloseRequest,TRUE,FV_Notify_Client,2,FM_Client_ReturnID,FV_Client_Quit])
  27.          F_Set(w,FA_Window_Open,TRUE)
  28.  
  29.          F_DoA(c,FM_Client_Run,NIL)
  30.  
  31.          F_DisposeObj(c)
  32.       ENDIF
  33.  
  34.       CloseLibrary(feelinbase)
  35.    ENDIF
  36. ENDPROC
  37.  
  38. schemespec:
  39.    CHAR 'c:FFDCA0',0,0,0,0,
  40.         'c:AA7864',0,0,0,0,
  41.         '\0:003CAA',0,0,0,0,
  42.         '\0:FFFFFF',0,0,0,0,
  43.         '\0:2878C8',0,0,0,0,NIL
  44.